object Form1: TForm1 Left = 192 Top = 107 BorderStyle = bsSingle Caption = 'Key interception example #1' ClientHeight = 242 ClientWidth = 352 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True PixelsPerInch = 96 Position = poDefaultPosOnly OnKeyDown = FormKeyDown TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 318 Height = 19 Caption = 'Press Escape to change the form'#39's colour' Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 8 Top = 32 Width = 306 Height = 19 Caption = 'Press Ctrl+S to minimise this application' Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 8 Top = 56 Width = 338 Height = 19 Caption = 'Press Alt+S to update this form'#39's caption bar' Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Edit1: TEdit Left = 24 Top = 104 Width = 121 Height = 21 TabOrder = 0 Text = 'Edit1' end object Edit2: TEdit Left = 24 Top = 136 Width = 121 Height = 21 TabOrder = 1 Text = 'Edit2' end object Edit3: TEdit Left = 24 Top = 168 Width = 121 Height = 21 TabOrder = 2 Text = 'Edit3' end object Edit4: TEdit Left = 24 Top = 200 Width = 121 Height = 21 TabOrder = 3 Text = 'Edit4' end object Edit5: TEdit Left = 192 Top = 104 Width = 121 Height = 21 TabOrder = 4 Text = 'Edit5' end object Edit6: TEdit Left = 192 Top = 136 Width = 121 Height = 21 TabOrder = 5 Text = 'Edit6' end object Edit7: TEdit Left = 192 Top = 168 Width = 121 Height = 21 TabOrder = 6 Text = 'Edit7' end object Edit8: TEdit Left = 192 Top = 200 Width = 121 Height = 21 TabOrder = 7 Text = 'Edit8' end end